www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\admindown\D_chk_edit_acticle.asp
<% '************************************************************** ' 新动软网站管理系统 ' 官方网站: http://www.aspcpu.com ' 系统作者: 阮丁远(网名:天下程序) ' Copyright 新动软网站管理系统 版权所有 '************************************************************** %> <LINK href="../css.css" type=text/css rel=stylesheet> <% dir_set="../../" %> <!--#include file=../../inc/conn.asp--> <!--#include file=../../inc/Functionb.asp--> <!--#include file=../../inc/ajaxLIB.asp--> <!--#include file=../inc/checkadmin2.asp--> <!--#include file=../../inc/functionFiless.asp--> <!--#include file=inc_lanmu_bl.asp--> <% AJAXshowLoader() %> <% biao="[ND_down_class]" biao2="[ND_down]" sys_content_type=trim(request("sys_content_type")) set rs44g=server.CreateObject("adodb.recordset") rs44g.open "select * from ND_channel where sys_content_type_name='"&sys_content_type&"' and lanmu_type='"&lanmu_taba&"'",conn,1,1 if find_dataw(lanmu_taba,rs44g("id"),2)<>"1" and qx_if_max=0 then response.redirect "../D_suodinguser.asp" end if Function ChkNumeric(CHECK_ID) IF CHECK_ID = "1" or CHECK_ID =1 Then ChkNumeric = "1" Else ChkNumeric = "0" End If if CHECK_ID ="" then ChkNumeric = "0" end if End Function Function ChkFormStr(ByVal str) Dim fString fString = str If IsNull(fString) Then ChkFormStr = "" Exit Function End If fString = Replace(fString, "'", "'") fString = Replace(fString, Chr(34), """) fString = Replace(fString, Chr(13), "") fString = Replace(fString, Chr(10), "") fString = Replace(fString, Chr(9), "") fString = Replace(fString, ">", ">") fString = Replace(fString, "<", "<") fString = Replace(fString, " ", " ") ChkFormStr = fString End Function Function Formatime(ByVal datime) datime = Trim(Replace(Trim(datime), vbNewLine, "")) If Not IsDate(datime) Then Formatime = Now() Exit Function End If If Len(datime) < 11 Then Formatime = CDate(datime & " " & FormatDateTime(Now, 3)) Else Formatime = CDate(datime) End If Exit Function End Function if session(nd_admin_cach_varb_name)="" then if request.cookies(nd_admin_cach_varb_name)="" then uuuaa="" else uuuaa=request.cookies(nd_admin_cach_varb_name) end if else uuuaa=session(nd_admin_cach_varb_name) end if if sys_content_type="" then %> <script language="javascript"> alert("url参数sys_content_type不能为空"); history.go(-1); </script> <% response.end end if err1=0 if request("classid")="no" then err1=1 %> <script language="javascript"> alert("请先选择分类"); history.go(-1); </script> <% response.end end if if request("title")="" then err1=1 %> <script language="javascript"> alert("请填写 软件名称"); history.go(-1); </script> <% response.end end if if Not IsNumeric(Request("AllHits")) then err1=1 %> <script language="javascript"> alert("初始点击数请输入整数"); history.go(-1); </script> <% response.end end if if Not IsNumeric(Request("dings")) then err1=1 %> <script language="javascript"> alert("被顶次数 请输入整数"); history.go(-1); </script> <% response.end end if if err1=0 then set rs441=server.CreateObject("adodb.recordset") rs441.open "select * from "&biao&" where id="&request("classid"),conn,1,3 if rs441("is_link_class")="1" then %> <script language="javascript"> alert("该分类为外部连接,无法添加文章"); history.go(-1); </script> <% response.end else isTop = ChkNumeric(Request.Form("isTop")) isBest = ChkNumeric(Request.Form("isBest")) isForbid = ChkNumeric(Request.Form("Forbidac")) isAccept = ChkNumeric(Request.Form("issh")) set rs44=server.CreateObject("adodb.recordset") rs44.open "select * from "&biao2&" where id="&request("id"),conn,1,3 rs44("sys_content_type")=sys_content_type rs44("title")=request("title") rs44("sub_title")=request("subtitle") rs44("classid")=request("classid") rs44("SpecialID")=request("spcid") rs44("titleColor")=request("ColorMode") rs44("titleFont")=request("FontMode") rs44("index_page_pic")=Request("ImageUrl") rs44("content")=Request("Content") rs44("is_outlink")=Request("isoutLink") rs44("outlink")=Request("TurnLinkUrl") rs44("Author_nick")=Request("Author") 'rs44("is_new")= rs44("is_tuijian")=isBest rs44("isTop")=isTop rs44("Hits")=CLng(Request.Form("AllHits")) rs44("DayHits")=CLng(Request.Form("AllHits")) rs44("MonthHits")=CLng(Request.Form("AllHits")) rs44("HitsTime")=date() rs44("WriteTime")=Formatime(Trim(Request.Form("WriteTime"))) rs44("username")=uuuaa 'rs44("out_and_inner_img_list")= 'rs44("UploadImage_list")= rs44("Uploadfile_list")=Trim(Request.Form("UploadFileList")) rs44("is_shenhe")=isAccept rs44("is_can_pinlun")=isForbid rs44("xiangguan_down_keywords_list")=ChkFormStr(Request.Form("Related")) rs44("xingji")=Trim(Request.Form("star")) 'rs44("update_time_input")= rs44("liulang_dengji_group_id")=request("liulanggroup") rs44("sver")=request("tver") rs44("srun")=request("RunSystem") rs44("soft_lx")=request("SoftType") rs44("gongxiang_soft_or_mianfei")=request("impower") rs44("soft_lang")=request("Languages") rs44("soft_size")=request("SoftSize") rs44("SizeUnit")=request("SizeUnit") rs44("lianxi_fangshi")=request("Contact") rs44("soft_guangfan_url")=request("Homepage") rs44("dianshuo_to_look")=request("PointNum") rs44("soft_money")=request("SoftPrice") rs44("zip_pwd")=request("Decode") rs44("if_have_chajian")=request("plugin") rs44("reg_url")=request("regurl") rs44("dings")=CLng(Request.Form("dings")) params_str="" for iit=1 to cint(request("params_len")) if trim(request("c"&cstr(iit)))<>"" then sss1=replace(replace(trim(request("c"&cstr(iit))),",","-xxnewdsofthtrd121a232_douhao-"),"|","-xxnewdsofthtrd121a232_shuhao-") sss2=replace(replace(trim(request("s"&cstr(iit))),",", "-xxnewdsofthtrd121a232_douhao-" ),"|","-xxnewdsofthtrd121a232_shuhao-") params_str=params_str&sss1&","&sss2&"|" end if next if params_str<>"" then params_str=left(params_str,len(params_str)-1) end if rs44("down_url_list")=params_str rs44("update_time_for_make_html")=now() rs44.update %> <script language="javascript"> alert("修改成功"); //self.location="D_admin_acticle.asp?sys_content_type=<%=sys_content_type%>"; self.location="D_htm_edited_cont.asp?sys_content_type=<%=sys_content_type%>"; </script> <% end if end if %> <% AJAXcloseLoader() %>